home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / examples.lha / examples / ann / ann_test_results next >
Encoding:
Text File  |  1991-10-18  |  4.4 KB  |  225 lines
  1.  
  2.  
  3. *******  This is approximately what the output from ann.test  *******
  4. *******  should look like:                                    *******
  5.  
  6. putSDS_RISan o1 30 40 1
  7.  
  8. +++++++++++++++++++++++++
  9.  
  10. putSDS_RISan o2 30 40 10
  11.  
  12. +++++++++++++++++++++++++
  13.  
  14. getSDSan o1
  15.  
  16. Data set # 1
  17.     No label
  18.     No description
  19.  
  20. +++++++++++++++++++++++++
  21.  
  22. getSDSan o2
  23.  
  24. Data set # 1
  25.     No label
  26.     No description
  27.  
  28. Data set # 2
  29.     Label: Array #1
  30.     Description: 2-D fp array #1. Produces spectrum with grid.
  31.         Dimensions:
  32.                 height = 30
  33.                 width = 40
  34.  
  35. Data set # 3
  36.     Label: Array #2
  37.     Description: 2-D fp array #2. Produces spectrum with grid.
  38.         Dimensions:
  39.                 height = 30
  40.                 width = 40
  41.  
  42. Data set # 4
  43.     No label
  44.     No description
  45.  
  46. Data set # 5
  47.     Label: Array #4
  48.     Description: 2-D fp array #4. Produces spectrum with grid.
  49.         Dimensions:
  50.                 height = 30
  51.                 width = 40
  52.  
  53. Data set # 6
  54.     Label: Array #5
  55.     Description: 2-D fp array #5. Produces spectrum with grid.
  56.         Dimensions:
  57.                 height = 30
  58.                 width = 40
  59.  
  60. Data set # 7
  61.     No label
  62.     No description
  63.  
  64. Data set # 8
  65.     Label: Array #7
  66.     Description: 2-D fp array #7. Produces spectrum with grid.
  67.         Dimensions:
  68.                 height = 30
  69.                 width = 40
  70.  
  71. Data set # 9
  72.     Label: Array #8
  73.     Description: 2-D fp array #8. Produces spectrum with grid.
  74.         Dimensions:
  75.                 height = 30
  76.                 width = 40
  77.  
  78. Data set # 10
  79.     No label
  80.     No description
  81.  
  82. +++++++++++++++++++++++++
  83.  
  84. getSDSlblst o1
  85. Labels of scientific data sets in file o1
  86.  
  87.         0       Ref number: 1   Label:
  88. +++++++++++++++++++++++++
  89.  
  90. getSDSlblst o2
  91. Labels of scientific data sets in file o2
  92.  
  93.         0       Ref number: 1   Label:
  94.         1       Ref number: 5   Label: Array #1
  95.         2       Ref number: 11  Label: Array #2
  96.         3       Ref number: 17  Label:
  97.         4       Ref number: 21  Label: Array #4
  98.         5       Ref number: 27  Label: Array #5
  99.         6       Ref number: 33  Label:
  100.         7       Ref number: 37  Label: Array #7
  101.         8       Ref number: 43  Label: Array #8
  102.         9       Ref number: 49  Label:
  103. +++++++++++++++++++++++++
  104.  
  105. file_ann o3
  106.  
  107.  
  108. ***Now reading label lengths and labels***
  109. Label length: 8 ret: 8  Label: Label #0
  110. Label length: 8 ret: 8  Label: Label #1
  111. Label length: 8 ret: 8  Label: Label #2
  112. Label length: 8 ret: 8  Label: Label #3
  113.  
  114. ***End of labels***
  115.  
  116.  
  117. Description length: 370
  118.  
  119. ***Just read description. ret: 370
  120. Description:
  121. Here is the loop used to write labels to this file:
  122.  
  123. for (i=0; i<4; i++) {
  124.  outlabel[7] = '0' + (char) i;
  125.  if (DFANaddfileann(dfile,outlabel,strlen(outlabel),DFAN_LABEL)<0){
  126.    printf("Error adding label. DFerror: %d.\nProgram aborted.\n",
  127.                                                            DFerror);
  128.        exit(1);
  129.    }
  130. }
  131.  
  132. This is the end of the description.
  133.  
  134.  
  135.  
  136. ***End of description***
  137. unset echo
  138.  
  139. NOW THE FORTRAN TESTS...enter o2 or 'o2' when prompted for a file name
  140.  
  141. echo
  142.  
  143. echo get1anF
  144. get1anF
  145. echo
  146.  
  147. get1anF
  148. Enter HDF file name.  The HDF file should contain two
  149. SDSs with a label and description for the second one.
  150. File name:
  151. o2
  152. Label: Array #1
  153. Description:
  154.  
  155. 2-D fp array #1. Produces spectrum with grid.
  156.         Dimensions:
  157.                 height = 30
  158.                 width = 40
  159.  
  160. +++++++++++++++++++++++++
  161.  
  162.  
  163. echo
  164.  
  165. echo getSDSlblstF
  166. getSDSlblstF
  167. echo
  168.  
  169. getSDSlblstF
  170. Labels of scientific data sets in o2
  171.   Ref number:   1  Label:
  172.   Ref number:   5  Label: Array #1
  173.   Ref number:   11  Label: Array #2
  174.   Ref number:   17  Label:
  175.   Ref number:   21  Label: Array #4
  176.   Ref number:   27  Label: Array #5
  177.   Ref number:   33  Label:
  178.   Ref number:   37  Label: Array #7
  179.   Ref number:   43  Label: Array #8
  180.   Ref number:   49  Label:
  181.  
  182.  
  183. +++++++++++++++++++++++++
  184.  
  185.  
  186. echo
  187.  
  188. echo file_annF
  189. file_annF
  190. echo
  191.  
  192. file_annF
  193. Enter HDF file name:
  194. o2
  195. ***** Now reading file ID lengths and IDs ******
  196. Length:   10  Ret:  10  Label:Label #1
  197. Length:   10  Ret:  10  Label:Label #2
  198. Length:   10  Ret:  10  Label:Label #3
  199. Length:   10  Ret:  10  Label:Label #4
  200. *** End of file IDs ***
  201. Description length:   400
  202. *** just read description.***
  203. Description:
  204.  
  205.  This loop was used to write out labels.
  206.  
  207.       do 100 i=1,4
  208.         outlabel = baselabel//char(48+i)
  209.         ret = DFANaddfid(dfile,outlabel,len(outlabel))
  210.         if (ret.lt.0)fatalerror('Error adding label.')
  211.   100 continue
  212.  
  213. This is the end of the description.
  214.  
  215.  
  216. *** End of description ***
  217.  
  218.  
  219.  
  220. +++++++++++++++++++++++++
  221.  
  222.  
  223. unset echo
  224.  
  225.